library(readxl)
library(dplyr)
library(flexdashboard)
library(plotly)

# Definir la ruta completa al archivo CSV
ruta_archivo <- "C:/Users/Keneth Ruiz/OneDrive/Documentos/GitHub/Data-Product/Lab1/tienda.csv"

# Importar el archivo CSV
datos_tienda <- read.csv(ruta_archivo)

# Calcular ventas totales por segmento
ventas_por_segmento <- datos_tienda %>%
  group_by(Segment) %>%
  summarize(VentasTotales = sum(Sales))

ventas_por_segmento

# Crear el gráfico pie chart
grafico_pie <- plot_ly(ventas_por_segmento, labels = ~Segment, values = ~VentasTotales, type = "pie")

# Mostrar el gráfico
grafico_pie